home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1984 January to June / Ahoy_Magazine_84-Jan-Jun_1984_Double_L.d64 / data maker (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  22 lines
  1. 10 rem--ahoy!--jan issue--data maker--prog page 48
  2. 100 rem line 50000 gets the starting location for entry of data
  3. 110 rem line 50010 gets the starting line number
  4. 115 rem line 50015 gets the amount of lines to be entered
  5. 200 rem the increment for each successive line (now 1) is in 50060 (li=li+1)
  6. 250 rem there are 18 pieces of data stored on each line, so if you want to know
  7. 260 rem how many lines you'll need, simply divide the amount of data by 18
  8. 5000 input"[147]location ";a:poke829,int(a/256):poke828,a-int(a/256)*256
  9. 50000 input"[147]location ";a:poke829,int(a/256):poke828,a-int(a/256)*256
  10. 50010 input"line number ";a:poke831,int(a/256):poke830,a-int(a/256)*256
  11. 50015 input"# of lines ";a:a=a+peek(830)+peek(831)*256
  12. 50016 poke833,int(a/256):poke832,a-int(a/256)*256
  13. 50020 a=peek(828)+peek(829)*256:li=peek(830)+peek(831)*256
  14. 50030 ifli>peek(832)+peek(833)*256-1thenend
  15. 50040 print"[147]"right$(str$(li),len(str$(li))-1)"data";
  16. 50050 fori=1to17:a$=str$(peek(a)):printright$(a$,len(a$)-1)",";:a=a+1:next
  17. 50060 a$=str$(peek(a)):printright$(a$,len(a$)-1):a=a+1:li=li+1
  18. 50070 poke829,int(a/256):poke828,a-int(a/256)*256
  19. 50080 poke831,int(li/256):poke830,li-int(li/256)*256
  20. 50090 print"goto50020"
  21. 50100 print"";:poke198,3:fori=631to636:pokei,13:next:end
  22.